home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / n.dxr / 00080.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  11.0 KB  |  368 lines
  1. global amonopict, bmonopict, cmonopict, apictlist, bpictlist, cpictlist, textnum, textlist, spnumlist, changelist, layoutnum, vspritelist, mode, captionmode, keydetect, event
  2.  
  3. on startMovie
  4.   global keydetect
  5.   inits()
  6.   init()
  7. end
  8.  
  9. on inits
  10.   set amonopict to 8
  11.   set bmonopict to 11
  12.   set cmonopict to 10
  13.   set textnum to 10
  14.   set apictlist to []
  15.   set bpictlist to []
  16.   set cpictlist to []
  17.   set textlist to []
  18.   set vspritelist to []
  19.   repeat with i = 1 to amonopict
  20.     add(apictlist, i)
  21.   end repeat
  22.   repeat with i = 1 to bmonopict
  23.     add(bpictlist, i)
  24.   end repeat
  25.   repeat with i = 1 to cmonopict
  26.     add(cpictlist, i)
  27.   end repeat
  28.   repeat with i = 1 to textnum
  29.     add(textlist, i)
  30.   end repeat
  31.   puppetSprite(3, 1)
  32.   set the ink of sprite 3 to 0
  33.   set the type of sprite 3 to 1
  34.   set the foreColor of sprite 3 to 255
  35.   set the backColor of sprite 3 to 0
  36.   set the locH of sprite 3 to 429
  37.   set the locV of sprite 3 to 240
  38.   repeat with i = 10 to 12
  39.     puppetSprite(i, 1)
  40.     set the ink of sprite i to 0
  41.     set the type of sprite i to 1
  42.     set the foreColor of sprite i to 255
  43.     set the backColor of sprite i to 0
  44.     set the visible of sprite i to 0
  45.   end repeat
  46. end
  47.  
  48. on initlista
  49.   repeat with i = 1 to amonopict
  50.     add(apictlist, i)
  51.   end repeat
  52. end
  53.  
  54. on initlistb
  55.   repeat with i = 1 to bmonopict
  56.     add(bpictlist, i)
  57.   end repeat
  58. end
  59.  
  60. on initlistc
  61.   repeat with i = 1 to cmonopict
  62.     add(cpictlist, i)
  63.   end repeat
  64. end
  65.  
  66. on inittext
  67.   repeat with i = 1 to textnum
  68.     add(textlist, i)
  69.   end repeat
  70. end
  71.  
  72. on settext
  73.   set text to getAt(textlist, random(count(textlist)))
  74.   deleteAt(textlist, getPos(textlist, text))
  75.   puppetSprite(9, 1)
  76.   set the ink of sprite 9 to 0
  77.   set the type of sprite 9 to 1
  78.   set the foreColor of sprite 9 to 255
  79.   set the backColor of sprite 9 to 0
  80.   set the castNum of sprite 9 to the number of member ("text" & text & captionmode)
  81.   set the locH of sprite 9 to 109
  82.   set the locV of sprite 9 to 240
  83. end
  84.  
  85. on textchange
  86.   judgelist()
  87.   set text to getAt(textlist, random(count(textlist)))
  88.   deleteAt(textlist, getPos(textlist, text))
  89.   set the castNum of sprite 9 to the number of member ("text" & text & captionmode)
  90.   set the locH of sprite 9 to 109
  91.   set the locV of sprite 9 to 240
  92.   updateStage()
  93. end
  94.  
  95. on layout1
  96.   set spnumlist to [10, 11, 12]
  97.   set changelist to [10, 11, 12]
  98.   judgelist()
  99.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  100.   deleteAt(cpictlist, getPos(cpictlist, c1))
  101.   if cpictlist = [] then
  102.     initlistc()
  103.     deleteAt(cpictlist, getPos(cpictlist, c1))
  104.   end if
  105.   set c2 to getAt(cpictlist, random(count(cpictlist)))
  106.   deleteAt(cpictlist, getPos(cpictlist, c2))
  107.   judgelist()
  108.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  109.   deleteAt(bpictlist, getPos(bpictlist, b1))
  110.   set the castNum of sprite 10 to the number of member ("C" & c1)
  111.   set the locH of sprite 10 to 359
  112.   set the locV of sprite 10 to 128
  113.   set the castNum of sprite 11 to the number of member ("B" & b1)
  114.   set the locH of sprite 11 to 556
  115.   set the locV of sprite 11 to 329
  116.   set the castNum of sprite 12 to the number of member ("C" & c2)
  117.   set the locH of sprite 12 to 331
  118.   set the locV of sprite 12 to 333
  119. end
  120.  
  121. on layout2
  122.   set spnumlist to [10, 11, 12]
  123.   set changelist to [10, 11, 12]
  124.   judgelist()
  125.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  126.   deleteAt(cpictlist, getPos(cpictlist, c1))
  127.   if cpictlist = [] then
  128.     initlistc()
  129.     deleteAt(cpictlist, getPos(cpictlist, c1))
  130.   end if
  131.   set c2 to getAt(cpictlist, random(count(cpictlist)))
  132.   deleteAt(cpictlist, getPos(cpictlist, c2))
  133.   judgelist()
  134.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  135.   deleteAt(bpictlist, getPos(bpictlist, b1))
  136.   set the castNum of sprite 10 to the number of member ("C" & c1)
  137.   set the locH of sprite 10 to 331
  138.   set the locV of sprite 10 to 148
  139.   set the castNum of sprite 12 to the number of member ("B" & b1)
  140.   set the locH of sprite 12 to 555
  141.   set the locV of sprite 12 to 152
  142.   set the castNum of sprite 11 to the number of member ("C" & c2)
  143.   set the locH of sprite 11 to 358
  144.   set the locV of sprite 11 to 353
  145. end
  146.  
  147. on layout3
  148.   set spnumlist to [10, 11, 12]
  149.   set changelist to [10, 11, 12]
  150.   judgelist()
  151.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  152.   deleteAt(cpictlist, getPos(cpictlist, c1))
  153.   judgelist()
  154.   set a1 to getAt(apictlist, random(count(apictlist)))
  155.   deleteAt(apictlist, getPos(apictlist, a1))
  156.   judgelist()
  157.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  158.   deleteAt(bpictlist, getPos(bpictlist, b1))
  159.   set the castNum of sprite 10 to the number of member ("C" & c1)
  160.   set the locH of sprite 10 to 331
  161.   set the locV of sprite 10 to 88
  162.   set the castNum of sprite 11 to the number of member ("B" & b1)
  163.   set the locH of sprite 11 to 331
  164.   set the locV of sprite 11 to 318
  165.   set the castNum of sprite 12 to the number of member ("A" & a1)
  166.   set the locH of sprite 12 to 541
  167.   set the locV of sprite 12 to 328
  168. end
  169.  
  170. on layout4
  171.   set spnumlist to [10, 11, 12]
  172.   set changelist to [10, 11, 12]
  173.   judgelist()
  174.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  175.   deleteAt(cpictlist, getPos(cpictlist, c1))
  176.   judgelist()
  177.   set a1 to getAt(apictlist, random(count(apictlist)))
  178.   deleteAt(apictlist, getPos(apictlist, a1))
  179.   judgelist()
  180.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  181.   deleteAt(bpictlist, getPos(bpictlist, b1))
  182.   set the castNum of sprite 10 to the number of member ("C" & c1)
  183.   set the locH of sprite 10 to 331
  184.   set the locV of sprite 10 to 391
  185.   set the castNum of sprite 11 to the number of member ("B" & b1)
  186.   set the locH of sprite 11 to 331
  187.   set the locV of sprite 11 to 162
  188.   set the castNum of sprite 12 to the number of member ("A" & a1)
  189.   set the locH of sprite 12 to 542
  190.   set the locV of sprite 12 to 151
  191. end
  192.  
  193. on layout5
  194.   set spnumlist to [10, 11, 12]
  195.   set changelist to [10, 11, 12]
  196.   judgelist()
  197.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  198.   deleteAt(cpictlist, getPos(cpictlist, c1))
  199.   judgelist()
  200.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  201.   deleteAt(bpictlist, getPos(bpictlist, b1))
  202.   if bpictlist = [] then
  203.     initlistb()
  204.     deleteAt(bpictlist, getPos(bpictlist, b1))
  205.   end if
  206.   set b2 to getAt(bpictlist, random(count(bpictlist)))
  207.   deleteAt(bpictlist, getPos(bpictlist, b2))
  208.   set the castNum of sprite 10 to the number of member ("B" & b1)
  209.   set the locH of sprite 10 to 303
  210.   set the locV of sprite 10 to 113
  211.   set the castNum of sprite 11 to the number of member ("B" & b2)
  212.   set the locH of sprite 11 to 331
  213.   set the locV of sprite 11 to 367
  214.   set the castNum of sprite 12 to the number of member ("C" & c1)
  215.   set the locH of sprite 12 to 528
  216.   set the locV of sprite 12 to 165
  217. end
  218.  
  219. on layout6
  220.   set spnumlist to [10, 11, 12]
  221.   set changelist to [10, 11, 12]
  222.   judgelist()
  223.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  224.   deleteAt(cpictlist, getPos(cpictlist, c1))
  225.   judgelist()
  226.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  227.   deleteAt(bpictlist, getPos(bpictlist, b1))
  228.   if bpictlist = [] then
  229.     initlistb()
  230.     deleteAt(bpictlist, getPos(bpictlist, b1))
  231.   end if
  232.   set b2 to getAt(bpictlist, random(count(bpictlist)))
  233.   deleteAt(bpictlist, getPos(bpictlist, b2))
  234.   set the castNum of sprite 10 to the number of member ("B" & b1)
  235.   set the locH of sprite 10 to 331
  236.   set the locV of sprite 10 to 113
  237.   set the castNum of sprite 11 to the number of member ("B" & b2)
  238.   set the locH of sprite 11 to 303
  239.   set the locV of sprite 11 to 367
  240.   set the castNum of sprite 12 to the number of member ("C" & c1)
  241.   set the locH of sprite 12 to 528
  242.   set the locV of sprite 12 to 314
  243. end
  244.  
  245. on layout7
  246.   set spnumlist to [10, 11, 12]
  247.   set changelist to [10, 11, 12]
  248.   judgelist()
  249.   set c1 to getAt(cpictlist, random(count(cpictlist)))
  250.   deleteAt(cpictlist, getPos(cpictlist, c1))
  251.   judgelist()
  252.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  253.   deleteAt(bpictlist, getPos(bpictlist, b1))
  254.   if bpictlist = [] then
  255.     initlistb()
  256.     deleteAt(bpictlist, getPos(bpictlist, b1))
  257.   end if
  258.   set b2 to getAt(bpictlist, random(count(bpictlist)))
  259.   deleteAt(bpictlist, getPos(bpictlist, b2))
  260.   set the castNum of sprite 10 to the number of member ("B" & b1)
  261.   set the locH of sprite 10 to 330
  262.   set the locV of sprite 10 to 367
  263.   set the castNum of sprite 11 to the number of member ("B" & b2)
  264.   set the locH of sprite 11 to 528
  265.   set the locV of sprite 11 to 340
  266.   set the castNum of sprite 12 to the number of member ("C" & c1)
  267.   set the locH of sprite 12 to 331
  268.   set the locV of sprite 12 to 138
  269. end
  270.  
  271. on layout8
  272.   set spnumlist to [10, 11]
  273.   set changelist to [10, 11]
  274.   judgelist()
  275.   set a1 to getAt(apictlist, random(count(apictlist)))
  276.   deleteAt(apictlist, getPos(apictlist, a1))
  277.   if apictlist = [] then
  278.     initlista()
  279.     deleteAt(apictlist, getPos(apictlist, a1))
  280.   end if
  281.   set a2 to getAt(apictlist, random(count(apictlist)))
  282.   deleteAt(apictlist, getPos(apictlist, a2))
  283.   set the castNum of sprite 10 to the number of member ("A" & a1)
  284.   set the locH of sprite 10 to 316
  285.   set the locV of sprite 10 to 179
  286.   set the castNum of sprite 11 to the number of member ("A" & a2)
  287.   set the locH of sprite 11 to 541
  288.   set the locV of sprite 11 to 301
  289.   set the visible of sprite 12 to 0
  290. end
  291.  
  292. on layout9
  293.   set spnumlist to [10, 11, 12]
  294.   set changelist to [10, 11, 12]
  295.   judgelist()
  296.   set a1 to getAt(apictlist, random(count(apictlist)))
  297.   deleteAt(apictlist, getPos(apictlist, a1))
  298.   judgelist()
  299.   set b1 to getAt(bpictlist, random(count(bpictlist)))
  300.   deleteAt(bpictlist, getPos(bpictlist, b1))
  301.   if bpictlist = [] then
  302.     initlistb()
  303.     deleteAt(bpictlist, getPos(bpictlist, b1))
  304.   end if
  305.   set b2 to getAt(bpictlist, random(count(bpictlist)))
  306.   deleteAt(bpictlist, getPos(bpictlist, b2))
  307.   set the castNum of sprite 10 to the number of member ("A" & a1)
  308.   set the locH of sprite 10 to 316
  309.   set the locV of sprite 10 to 291
  310.   set the castNum of sprite 11 to the number of member ("B" & b1)
  311.   set the locH of sprite 11 to 528
  312.   set the locV of sprite 11 to 113
  313.   set the castNum of sprite 12 to the number of member ("B" & b2)
  314.   set the locH of sprite 12 to 528
  315.   set the locV of sprite 12 to 367
  316. end
  317.  
  318. on judgelist
  319.   if apictlist = [] then
  320.     initlista()
  321.   end if
  322.   if bpictlist = [] then
  323.     initlistb()
  324.   end if
  325.   if cpictlist = [] then
  326.     initlistc()
  327.   end if
  328.   if textlist = [] then
  329.     inittext()
  330.   end if
  331. end
  332.  
  333. on showsprite
  334.   set a to random(count(spnumlist))
  335.   if a = 1 then
  336.     nothing()
  337.   else
  338.     set a to a - 1
  339.   end if
  340.   repeat with i = 1 to a
  341.     set spnum to getAt(spnumlist, random(count(spnumlist)))
  342.     deleteAt(spnumlist, getPos(spnumlist, spnum))
  343.     add(vspritelist, spnum)
  344.   end repeat
  345.   repeat with i = 1 to count(vspritelist)
  346.     set the visible of sprite getAt(vspritelist, i) to 1
  347.   end repeat
  348. end
  349.  
  350. on judgename castname
  351.   judgelist()
  352.   if castname = "A" then
  353.     set castNum to getAt(apictlist, random(count(apictlist)))
  354.     deleteAt(apictlist, getPos(apictlist, castNum))
  355.     return castNum
  356.   end if
  357.   if castname = "B" then
  358.     set castNum to getAt(bpictlist, random(count(bpictlist)))
  359.     deleteAt(bpictlist, getPos(bpictlist, castNum))
  360.     return castNum
  361.   end if
  362.   if castname = "C" then
  363.     set castNum to getAt(cpictlist, random(count(cpictlist)))
  364.     deleteAt(cpictlist, getPos(cpictlist, castNum))
  365.     return castNum
  366.   end if
  367. end
  368.